home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / disk / misc / BBInstall.lha / Std_2.1.a < prev   
Text File  |  1997-09-01  |  887b  |  51 lines
  1. ***************************************************************************
  2.  
  3.     opt o+
  4.  
  5.     IncDir    "INCLUDE:"
  6.     Include "libraries/expansionbase.i"
  7.     Include    "exec/resident.i"
  8.     
  9.     Include    "libdef/exec_lib.i"
  10.  
  11. ***************************************************************************
  12. *
  13. * Standard boot block starts here
  14. *
  15.  
  16. OpenExpansion:
  17.     lea    ExpansionName(pc),a1
  18.     moveq    #37,d0
  19.     SCALLSYS OpenLibrary
  20.     tst.l    d0
  21.     beq.s    OpenDOS
  22.     move.l    d0,a1
  23.     bset    #EBB_SILENTSTART,eb_Flags(a1)    ; bset #6,34(a1)
  24.     SCALLSYS CloseLibrary
  25.  
  26. OpenDOS:
  27.     lea    DOSName(pc),a1
  28.     SCALLSYS FindResident
  29.     tst.l    d0
  30.     beq.s    NoDOS
  31.     move.l    d0,a0
  32.     move.l    RT_INIT(a0),a0            ; move.l 22(a0),a0
  33.     moveq    #0,d0
  34.     rts
  35.  
  36. NoDOS:
  37.     moveq    #-1,d0
  38.     rts
  39.  
  40. DOSName:    dc.b    "dos.library",0
  41. ExpansionName:    dc.b    "expansion.library",0    
  42.     even
  43.  
  44. *
  45. * Standard boot block ends here
  46. *
  47. ***************************************************************************
  48.  
  49.     end
  50.  
  51.